CAAPlanetPerihelionAphelion_NeptuneK <-
function(Year){
.Call("CAAPlanetPerihelionAphelion_NeptuneK", Year)
}
